140 FORJ=828TO903:READX:POKEJ,X
150 CS=CS+X:NEXT
160 IFCS<>8431THENPRINT"ERROR!":END
170 PRINT"S":SYS828
200 DATA120,169,91,141,20,3,169,3
210 DATA141,21,3,169,50,141,18,208
220 DATA173,17,208,41,127,141,17,208
230 DATA169,129,141,26,208,88,96,173
240 DATA25,208,141,25,208,48,7,173
250 DATA13,220,88,76,49,234,173,18
260 DATA208,201,58,176,10,169,1,141
270 DATA33,208,169,58,76,130,3,169
280 DATA0,141,33,208,169,50,141,18
290 DATA208,76,188,254